Usenet 1993 July

home *** CD-ROM | disk | FTP | other *** search

/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / misc / volume17 / calentool / part15 < prev next >

Wrap

Internet Message Format | 1991-04-06 | 54.5 KB

From: billr@saab.CNA.TEK.COM (Bill Randle) Newsgroups: comp.sources.misc Subject: v17i096: calentool - day/week/month/year-at-a-glance SunView tool, Part15/23 Message-ID: <1991Apr6.024120.17402@sparky.IMD.Sterling.COM> Date: 6 Apr 91 02:41:20 GMT Approved: kent@sparky.imd.sterling.com X-Checksum-Snefru: 0d693485 9b58aab0 70bc166c 9f25fb0a Submitted-by: Bill Randle <billr@saab.CNA.TEK.COM> Posting-number: Volume 17, Issue 96 Archive-name: calentool/part15 #! /bin/sh # This is a shell archive. Remove anything before this line, then unpack # it by saving it into a file and typing "sh file". To overwrite existing # files, type "sh file -c". You can also feed this as standard input via # unshar, or by typing "sh <file", e.g.. If this archive is complete, you # will see the following message at the end: # "End of archive 15 (of 23)." # Contents: dates/gdead devent.c event.h mpaint.c # Wrapped by billr@saab on Thu Mar 28 08:38:26 1991 PATH=/bin:/usr/bin:/usr/ucb ; export PATH if test -f 'dates/gdead' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'dates/gdead'\" else echo shar: Extracting \"'dates/gdead'\" $9832 characters$ sed "s/^X//" >'dates/gdead' <<'END_OF_FILE' X# CalenTool V2.2 - nflag=1 range=1,12 - DO NOT REMOVE THIS LINE X# $Header: gdead,v 1.2 91/03/07 16:21:08 billr Exp $ X# X# Dead Dates from the 1982 Dead Calendar X# courtesy of Tom Uffner <tom@cis.udel.edu> X# X** 01 02 99 99 00 Psychedelic Shop opens, Haight St. SF (1966) X** 01 08 99 99 00 Acid Test Fillmore Aud. SF (1966) X** 01 09 99 99 00 Bill Graham born (1931) X** 01 13 99 99 00 "Stop Nuclear Power" benefit, Arlington Theatre, Santa Barbara (1978) X** 01 13 99 99 00 Cambodian Boat People's benefit, Oakland Col. w/ Joan Baez (1980) X** 01 14 99 99 00 Human Be-In, Golden Gate Park, SF, Dead, Airplane, Quicksilver (1967) X** 01 19 99 99 00 Janis Joplin born (1943) X** 01 21 99 99 00 Longshoreman's Hall Trips Festival, SF (thru 1-23-66) X** 01 22 99 99 00 Honolulu Civic Aud. (first show in Hawaii) (1970) X** 01 24 99 99 00 BAM's award, SF, Phil Lesh "best bassist" (1978) X** 01 30 99 99 00 BAM's award, SF, Mickey Hart "best drummer", Dead "best group" (1979) X** 01 31 99 99 00 Dead busted, New Orleans (1970) X** 02 04 99 99 00 Neal Cassady dies (1968) X** 02 08 99 99 00 Neal Cassady born (1926) X** 02 11 99 99 00 Watts Acid Test, Compton, CA (1966) X** 02 11 99 99 00 Fillmore East, NYC (w/ Duane and Gregg Allman, Peter Green) (1970) X** 02 13 99 99 00 'Bears Choice' recorded at Fillmore East, NYC (also 2-14-70) (1970) X** 02 13 99 99 00 "New Music for the 80's", Rhythm Devils debut, Marin, CA (1980) X** 02 14 99 99 00 Dead/Airplane open Carousel Ballroom, SF (1968) X** 02 17 99 99 00 "Rock for Life" benefit, Keith and Donna G.'s last show, Oakland (1979) X** 02 19 99 99 00 ESP Experiment show, Capital Theatre, Portchester, NY (1971) X** 02 23 99 99 00 Jefferson Airplane headline benefit for Dead's N.Orl. bust, Fill. W. (1970) X** 03 03 99 99 00 Haight Street, SF, free concert (1968) X** 03 05 99 99 00 Black Panther benefit, Oakland Aud. (1st show there), CA (1971) X** 03 05 99 99 00 Rolling Thunder benefit, Winterland, SF (1972) X** 03 08 99 99 00 Fillmore East opens, NYC (1968) X** 03 08 99 99 00 Pigpen found dead (1973) X** 03 12 99 99 00 Jack Kerouac born (1922) X** 03 15 99 99 00 Phil Lesh born (1940) X** 03 15 99 99 00 Benefit for SF Symphony ('Black and White Ball') Hilton Hotel, SF (1969) X** 03 20 99 99 00 Rainbow Theatre, London (also 3-21 thru 3-24) (1981) X** 03 23 99 99 00 Cow Palace debut of new sound system (25 tons, 641 spkrs, 48 amps) (1974) X** 03 23 99 99 00 S.N.A.C.K. benefit w/ Merl Saunders, Ned Lagin, Kezer Stad. SF (1975) X** 03 25 99 99 00 Academy of Music, NYC Donna's first show w/ Bo Diddley (1972) X** 03 25 99 99 00 BAM's award, SF, Jerry Garcia "Musician of the year" (1980) X** 03 28 99 99 00 Gruga Hall, Essen, Germany, w/ The Who, Flying Karamazov Bros. (1981) X** 04 01 99 99 00 "April Fools Show" Capital Theatre, Passaic, NJ (1980) X** 04 05 99 99 00 'Saturday Night Live' second appearance (1980) X** 04 07 99 99 00 Europe '72 Tour begins, Empire Pool, Wembley, England (1972) X** 04 15 99 99 00 BAM's award, SF, Phil Lesh "best bassist" (1981) X** 04 20 99 99 00 People's Park planted, Berkeley (1969) X** 04 22 99 99 00 Brent Mydland's first show, Spartan Stadium, San Jose, CA (1979) X** 04 26 99 99 00 Fillmore East, NYC w/ Duane Allman (1971) X** 04 27 99 99 00 Fillmore East, NYC w/ Beach Boys (1971) X** 04 28 99 99 00 Fillmore Eest, NYC w/ Tom Constanten (1971) X** 04 29 99 99 00 Fillmore East, NYC last show (1971) X** 04 30 99 99 00 Casey Jones killed (1900) X** 05 06 99 99 00 MIT, Cambridge, MA free concert (1970) X** 05 07 99 99 00 Bill Kreutzmann born (1946) X** 05 07 99 99 00 'Tomorrow Show' interview and music (1981) X** 05 13 99 99 00 Lille Fairgrounds, France (free concert) (1972) X** 05 16 99 99 00 Diga Rhythm Band's first public appearance, Winterland w/ Starship (1975) X** 05 24 99 99 00 Hollywood Festival Newcastle, England (first European show) (1970) X** 05 26 99 99 00 Europe '72 tour ends, Lyceum, London (1970) X** 05 26 99 99 00 Day on the Green #1, Kezer Stadim, SF w/ Dead, NRPS (1973) X** 05 27 99 99 00 First Avalon Ballroom show, SF (1966) X** 06 01 99 99 00 Haight Ashbury Free Clinic opens, SF (1967) X** 06 01 99 99 00 Dead Movie opens, Ziegfield Theatre, NYC (1977) X** 06 03 99 99 00 'The Vacation Ends', Dead begin touring again, Portland, OR (1976) X** 06 06 99 99 00 'Seastones' debut at Dominican College, San Rafael, CA (1975) X** 06 07 99 99 00 15-year anniversary shows, Folsom Field, Univ. of CO, Boulder (1980) X** 06 08 99 99 00 Day on the Green w/ Beach Boys, Oakland (1974) X** 06 09 99 99 00 RFK Stadium, Wash. DC, w/ Allman Bros. (1973) X** 06 12 99 99 00 'Fire on the Mountain', Dead and Mt. St. Helens hit Portland (1980) X** 06 14 99 99 00 First Fillmore East show (1968) X** 06 15 99 99 00 Dead play at Straight Theatre christening party, SF (1967) X** 06 17 99 99 00 Pigpen's last show, Hollywood Bowl, CA (1972) X** 06 17 99 99 00 Bob Fried Memorial Boogie, Winterland, SF (1975) X** 06 18 99 99 00 Dead at Monterey Pop Festival (1967) X** 06 19 99 99 00 Summer Solstice shows, West High Aud., Anchorage, AK (thru 6-21) (1980) X** 06 21 99 99 00 Chateau de Herouville, France, free concert (1971) X** 06 22 99 99 00 Central Park, NYC free concert (1969) X** 06 23 99 99 00 Robert Hunter born (1941) X** 06 27 99 99 00 Fillmore East, NYC closes (1971) X** 06 29 99 99 00 Red Dog Saloon opens, Virginia City, NV (1965) X** 06 29 99 99 00 Canadian Train Tour begins, Toronto, ends 7-3 (1970) X** 07 02 99 99 00 Last Fillmore West show, SF (1971) X** 07 04 99 99 00 William Hitchcock's mansion, Millbrook, NY (1967) X** 07 04 99 99 00 Fillmore West closes, SF (1971) X** 07 08 99 99 00 Mississippi River Festival, Edwardsville, IL (1970) X** 07 12 99 99 00 Orpheum Theatre shows begin, ends 7-18 (1976) X** 07 19 99 99 00 Keith Godchaux born (1948) X** 07 23 99 99 00 Keith Godchaux dies (1980) X** 07 28 99 99 00 Watkins Glen, NY w/ Allman Bros., Band. 600,000 people (1973) X** 08 01 99 99 00 Jerry Garcia born (1942) X** 08 04 99 99 00 Newport Rock Festival, Costa Mesa, CA (1968) X** 08 07 99 99 00 Merry Pranksters "Welcome Hell's Angels' Party", La Honda, CA (1965) X** 08 13 99 99 00 Great American Music Hall, SF (1975) X** 08 15 99 99 00 Woodstock Music and Arts Festival, NY (Dead 8-16), thru 8-17 (1969) X** 08 20 99 99 00 First Fillmore West show, SF (1968) X** 08 22 99 99 00 Donna Jean Godchaux born (1947) X** 08 28 99 99 00 Springfield Creamery benefit, Lane County Fairgrounds, OR (1972) X** 08 31 99 99 00 Dead at New Orleans Pop Festival (1969) X** 09 03 99 99 00 Dead at Sky River Rock Festival, Washington (1968) X** 09 08 99 99 00 Ron "Pigpen" McKernan born (1945) X** 09 09 99 99 00 Alexandra Palace, London (start of '74 European Tour' (1974) X** 09 10 99 99 00 Rolling Thunder (1916) X** 09 11 99 99 00 Mickey Hart born (1943) X** 09 11 99 99 00 Ken Kesey born (1935) X** 09 14 99 99 00 Sound and Light Theatre, Gizah, Egypt, w/ Hamza El-Din, thru 9-16 (1978) X** 09 16 99 99 00 Albert Hoffman's first LSD experience (1943) X** 09 23 99 99 00 Jefferson Airplane/Muddy Waters headline first Winterland dance, SF (1966) X** 09 25 99 99 00 Warfield shows begin, SF (return of accoustic sets) (1980) X** 09 26 99 99 00 Record Factory auction of Dead artwork and memorabilia, San Rafael, SF (1976) X** 09 28 99 99 00 Last free Dead show in Golden Gate Park, SF w/ Starship (1975) X** 09 28 99 99 00 Cabrillo discovers California (1542 ) X** 09 29 99 99 00 Mickey Hart's first show, Straight Theatre, SF (1967) X** 10 01 99 99 00 SF State College Acid Test (1966) X** 10 02 99 99 00 710 Ashbury Street bust (1967) X** 10 04 99 99 00 Janis Joplin dies (1970) X** 10 06 99 99 00 LSD declared illegal (1966) X** 10 06 99 99 00 'Death of Hippie' ceremony, SF (1967) X** 10 07 99 99 00 First Winterland show as "The Grateful Dead", SF (1966) X** 10 08 99 99 00 First 'Mickey and the Harbeats' show, The Matrix, SF (1968) X** 10 09 99 99 00 Roadie benefit, Winterland, SF (1972) X** 10 09 99 99 00 Who/Dead Day on the Green, Oakland, CA (thru 10-10) (1976) X** 10 14 99 99 00 Warfield shows end, SF (1980) X** 10 15 99 99 00 Peace Festival, Mt. Tamalpais, CA (1966) X** 10 16 99 99 00 Bob Wier born (1947) X** 10 16 99 99 00 Dead 'retire' (five shows at Winterland), SF (1974) X** 10 19 99 99 00 Keith Godchaux's first show, Northrup Aud., Minn., MN (1971) X** 10 20 99 99 00 Mickey Hart rejoins band at Winterland (retirement shows end), SF (1974) X** 10 21 99 99 00 Brent Mydland born (1952) X** 10 21 99 99 00 Jack Kerouac dies (1969) X** 10 23 99 99 00 Radio City Music Hall shows begin, NYC (thru 10-31) (1980) X** 10 26 99 99 00 Dead play at North Face Ski Shop opening, SF (1966) X** 10 27 99 99 00 KSAN's live tape weekend (vintage Fillmore, Avalon tapes played), SF (1972) X** 11 06 99 99 00 Jefferson Airplane headline first Bill Graham show, SF (1965) X** 11 09 99 99 00 First issue of Rolling Stone published, SF (1967) X** 11 11 99 99 00 'Saturday Night Live' first appearance (1978) X** 11 15 99 99 00 Moratorium Day, Lanai Theatre, Crockett, CA (1969) X** 11 15 99 99 00 Fillmore East, NYC w/ Winwood, Wood, Capaldi, Ramblin' Jack Elliot (1970) X** 11 17 99 99 00 Acoustic benefit for Hunger Week, Chicago's Loyola College (1978) X** 11 24 99 99 00 Capital Theatre, Passaic, NJ, nationwide broadcast (1978) X** 12 04 99 99 00 San Jose Acid Test (1965) X** 12 06 99 99 00 Mill Valley Recreation Center (free concert), CA (1980) X** 12 10 99 99 00 First Fillmore Auditorium show (2nd Mime Troupe benefit), SF (1965) X** 12 17 99 99 00 'Death and Rebirth of the Haight A. and Death of Money' parade, SF (1966) X** 12 18 99 99 00 Big Beat Club Acid Test, Palo Alto, CA (1965) X** 12 26 99 99 00 St. Stephens' Day X** 12 27 99 99 00 First Dead Head arrives for Winterland closing, SF (1978) X** 12 31 99 99 00 First New Year's show Fillmore Auditorium, SR (1966) X** 12 31 99 99 00 New Year's Eve at The Ark, Boston, MA (1969) X** 12 31 99 99 00 Dead close Winterland, SF w/ Blues Bros., NRPS (1978) X END_OF_FILE if test 9832 -ne `wc -c <'dates/gdead'`; then echo shar: \"'dates/gdead'\" unpacked with wrong size! fi # end of 'dates/gdead' fi if test -f 'devent.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'devent.c'\" else echo shar: Extracting \"'devent.c'\" $30220 characters$ sed "s/^X//" >'devent.c' <<'END_OF_FILE' X/* X * $Header: devent.c,v 2.8 91/03/27 16:45:23 billr Exp $ X */ X/* X * devent.c X * X * Author: Philip Heller, Sun Microsystems. Inc. <terrapin!heller@sun.com> X * X * Original source Copyright (C) 1987, Sun Microsystems, Inc. X * All Rights Reserved X * Permission is hereby granted to use and modify this program in source X * or binary form as long as it is not sold for profit and this copyright X * notice remains intact. X * X * X * Changes/additions by: Bill Randle, Tektronix, Inc. <billr@saab.CNA.TEK.COM> X * X * Changes and additions Copyright (C) 1988, 1989, 1991 Tektronix, Inc. X * All Rights Reserved X * Permission is hereby granted to use and modify the modifications in source X * or binary form as long as they are not sold for profit and this copyright X * notice remains intact. X */ X/******************************************************** X * * X * Day event routines for main subwindow. * X * * X ********************************************************/ X X X#include <stdio.h> X#include <suntool/sunview.h> X#include <suntool/canvas.h> X#include <suntool/panel.h> X#include <suntool/menu.h> X#include <suntool/seln.h> X#include <sys/time.h> X#include <fcntl.h> X#include "ct.h" X#include "event.h" X Xextern Menu day_sel_menu; Xextern Frame attr_frame; Xextern Panel_item everyx_pi, repeat_pi, remind_pi; Xextern Panel_item whichwk_pi, marked_pi, advw_pi; Xextern Panel_item del_choice_pi; Xextern Panel_item runl_pi; Xextern Frame del_frame; Xextern Panel del_panel; Xextern Pixrect tri_right_pr, tri_up_pr; Xextern Pixrect *leftarrow, *rightarrow, *morebutton; Xextern int n_tslots, n_slots, start_hour; Xextern Seln_client s_client; Xint attr_bi; Xstruct appt_entry shelf_appt = {0}; Xint old_slot = -1; /* for text cursor location */ Xint box_index, found_flag; Xchar sel_text[MAX_STRLEN]; Xstatic char *get_shelf(); Xextern int chk_deleted(); X Xday_inputevent(canvas, event) XCanvas canvas; XEvent *event; X{ X Menu_item an_item; X int x, y; X int i, j, active_above, strl; X struct appt_entry *aptr; X static int start_arrow_box = -1, prev_box = 0; X static int expecting = 0; X char *paste_str; X X found_flag = 0; /* See if cursor is in a box. */ X /* translate coordinates back to pixwin space */ X event = canvas_window_event(canvas, event); X x = event_x(event); X y = event_y(event); X if (event_id(event) == LOC_RGNEXIT && old_slot >= 0) { X /* erase text cursor */ X text_cursor(old_slot); X old_slot = -1; X } X X for (box_index=0; box_index<n_slots; box_index++) { X /* is cursor inside a slot ? */ X if (x>=slots[box_index].slot_pos.left && x<=slots[box_index].slot_pos.right && X y>=slots[box_index].slot_pos.top && y<=slots[box_index].slot_pos.bottom) { X found_flag = FOUND_SLOT; X break; X } X /* is cursor inside a "more" button ? */ X if (x>=slots[box_index].moreb_pos.left && x<=slots[box_index].moreb_pos.right && X y>=slots[box_index].moreb_pos.top && y<=slots[box_index].moreb_pos.bottom) { X if (slots[box_index].active > 1) { X /* "more" button is active */ X found_flag = FOUND_MORE; X break; X } X } X /* is cursor inside a "leftarrow" button ? */ X if (x>=slots[box_index].larrow_pos.left && x<=slots[box_index].larrow_pos.right && X y>=slots[box_index].larrow_pos.top && y<=slots[box_index].larrow_pos.bottom) { X found_flag = FOUND_LARROW; X break; X } X /* is cursor inside a "rightarrow" button ? */ X if (x>=slots[box_index].rarrow_pos.left && x<=slots[box_index].rarrow_pos.right && X y>=slots[box_index].rarrow_pos.top && y<=slots[box_index].rarrow_pos.bottom) { X found_flag = FOUND_RARROW; X break; X } X } X if (old_slot >= 0) { X /* erase text cursor at old location */ X text_cursor(old_slot); X old_slot = -1; X } X X if (!found_flag && !expecting) X return(0); /* Not in a box => ignore. */ X X if (event_id(event) == LOC_STILL || (event_is_button(event) && event_is_up(event))) { X if (found_flag == FOUND_SLOT && box_index != old_slot) X /* in a different slot than we were before */ X if (slots[box_index].active) X /* display cursor at new location */ X text_cursor(box_index); X } X if (found_flag == FOUND_SLOT && event_id(event) == KEY_LEFT(8) X && event_is_up(event)) { X /* X * Process a "Paste" ("Get") event by pasting the text X * from the SHELF. Note that this is different from X * pasting an appointment. X */ X if (!slots[box_index].active) X return(0); X new_entry = 1; /* flag for file updating */ X strl = strlen(slots[box_index].cur_appt->str); X paste_str = get_shelf(); X if (paste_str == NULL) { X text_cursor(box_index); X return(0); X } X strncpy(slots[box_index].cur_appt->str + strl, paste_str, X min(strlen(paste_str),MAX_STRLEN - strl )); X slots[box_index].cur_appt->str[min(strlen(paste_str) + strl, MAX_STRLEN)] = '\0'; X rewrite_string(box_index, JUSTIFY_LEFT); X /* display cursor at new location */ X text_cursor(box_index); X } else if (event_id(event) == KEY_LEFT(6) && event_is_up(event)) { X /* put string for current appt on the shelf */ X if (found_flag == FOUND_SLOT && slots[box_index].active) X /* we're in an active slot */ X strcpy(sel_text, slots[box_index].cur_appt->str); X else X sel_text[0] = '\0'; X } else if (found_flag == FOUND_SLOT && event_id(event) <= ASCII_LAST) { X /* Process a kbd event. */ X if (!slots[box_index].active) X return(0); X if (event_id(event) == CTRL_R) { X rewrite_string(box_index, JUSTIFY_LEFT); X return(0); X } X if (slots[box_index].cur_appt->flags & READONLY) X return(0); X new_entry = 1; /* flag for file updating */ X strl = strlen(slots[box_index].cur_appt->str); X if (event_id(event) == CTRL_U) { X slots[box_index].cur_appt->str[0] = '\0'; X rewrite_string(box_index, JUSTIFY_LEFT); X } else if (event_id(event) == CTRL_W) { X while (strl > 0 && slots[box_index].cur_appt->str[strl-1] != ' ') { X slots[box_index].cur_appt->str[strl-1] = '\0'; X strl--; X } X rewrite_string(box_index, JUSTIFY_RIGHT); X } else if (event_id(event) == DEL || event_id(event) == BACKSPACE) { X if (strl > 0) { X slots[box_index].cur_appt->str[strl-1] = '\0'; X rewrite_string(box_index, JUSTIFY_RIGHT); X } X } else if (event_id(event) >= (int)' ' && strl < MAX_STRLEN-2) { X slots[box_index].cur_appt->str[strl] = (char)event_id(event); X slots[box_index].cur_appt->str[strl+1] = '\0'; X rewrite_string(box_index, JUSTIFY_RIGHT); X } X /* display cursor at new location */ X text_cursor(box_index); X } else if (event_id(event) == MS_LEFT && event_is_down(event)) { X /* LB down event */ X switch (found_flag) { X case FOUND_SLOT: X break; X case FOUND_MORE: X /* reverse video "more" button */ X pw_rop(main_pixwin, slots[box_index].moreb_pos.left, slots[box_index].moreb_pos.top, X morebutton->pr_width, morebutton->pr_height, PIX_NOT(PIX_DST), X morebutton, 0, 0); X expecting = box_index + (FOUND_MORE<<8); X break; X case FOUND_LARROW: X do_left_arrow(canvas, box_index); X break; X case FOUND_RARROW: X do_right_arrow(canvas, box_index); X break; X } X } else if (event_id(event) == MS_LEFT && event_is_up(event)) { X /* Process an LB up click. */ X i = expecting>>8; X if (expecting && found_flag != i) { X /* return button to normal video */ X if (i == FOUND_MORE) { X /* "more" button */ X i = expecting & 0xff; X pw_rop(main_pixwin, slots[i].moreb_pos.left, slots[i].moreb_pos.top, X morebutton->pr_width, morebutton->pr_height, PIX_SRC, X morebutton, 0, 0); X } X } else { X switch (found_flag) { X case FOUND_SLOT: X if (!read_only) { X make_box_active(box_index); X new_entry = 1; X } X break; X case FOUND_MORE: X next_appt(box_index, TRUE); X /* normal video "more" button */ X pw_rop(main_pixwin, slots[box_index].moreb_pos.left, slots[box_index].moreb_pos.top, X morebutton->pr_width, morebutton->pr_height, PIX_SRC, X morebutton, 0, 0); X break; X case FOUND_LARROW: X break; X case FOUND_RARROW: X break; X } X } X expecting = 0; X } else if (found_flag == FOUND_SLOT && event_id(event) == MS_MIDDLE) { X /* Process a MB click. */ X if (event_is_down(event)) { X /* try to start dragging from here */ X if (!slots[box_index].active || box_index >= n_tslots) { X /* not allowed in notes slots, either */ X start_arrow_box = -1; X return(0); X } X if ((slots[box_index].cur_appt->flags & READONLY) || read_only) { X start_arrow_box = -1; X return(0); X } X if (slots[box_index].cur_appt->arrows > 0) { X /* remove old arrows and adjust counts */ X deactivate_lower_arrows(box_index, TRUE); X j = slots[box_index].cur_appt->arrows; X while (j > 0) X slots[box_index+(j--)].count--; X slots[box_index].cur_appt->arrows = 0; X } X prev_box = start_arrow_box = box_index; X } else { X if (box_index >= n_tslots) { X /* mouse currently in notes section */ X if (start_arrow_box == -1) X /* started in notes section, too */ X return(0); X else X /* truncate at start of notes section */ X box_index = n_tslots - 1; X } X /* end of dragging => end of arrow */ X if (box_index > start_arrow_box && start_arrow_box != -1) { X int left = (dayslot_width-2)/2 - 8; X X i = start_arrow_box; X slots[i].cur_appt->arrows = box_index - start_arrow_box; X while (++i < box_index) { X slots[i].count++; X /* X * erase arrow shaft on boxes - it will be X * replaced by a real arrowshaft during redraw X */ X pw_rop(main_pixwin, slots[i].slot_pos.left+left, X slots[i].slot_pos.top+1, X 16, dayslot_height-2, X PIX_SRC^PIX_DST, arrowshaft_pr, X 0, 0); X } X slots[i].count++; X /* X * erase arrow shaft on last box - it will be X * replaced by an arrowhead during redraw X */ X pw_rop(main_pixwin, slots[i].slot_pos.left+left, X slots[i].slot_pos.top+1, X 16, dayslot_height-2, X PIX_SRC^PIX_DST, arrowshaft_pr, X 0, 0); X } X start_arrow_box = -1; X new_entry = 1; X draw_day_appts(); X } X } else if (found_flag == FOUND_SLOT && event_id(event) == LOC_DRAG) { X /* mouse dragging - is it the middle button ? */ X if ((int)window_get(canvas, WIN_EVENT_STATE, MS_MIDDLE) && start_arrow_box >= 0) { X int left = (dayslot_width-2)/2 - 8; X X if (box_index >= n_tslots) X /* don't flow into notes section */ X box_index = n_tslots - 1; X /* X * xor arrow shaft thru current slot so X * we can see where we're dragging X */ X if (box_index > prev_box) { X while (++prev_box <= box_index) { X pw_rop(main_pixwin, slots[prev_box].slot_pos.left+left, X slots[prev_box].slot_pos.top+1, X 16, dayslot_height-2, X PIX_SRC^PIX_DST, arrowshaft_pr, X 0, 0); X } X prev_box = box_index; X } else if (box_index < prev_box && box_index >= start_arrow_box) { X /* going backwards - cleanup as we go */ X while (prev_box > box_index) { X pw_rop(main_pixwin, slots[prev_box].slot_pos.left+left, X slots[prev_box].slot_pos.top+1, X 16, dayslot_height-2, X PIX_SRC^PIX_DST, arrowshaft_pr, X 0, 0); X --prev_box; X } X } X } X } else if (found_flag == FOUND_SLOT && event_id(event) == MS_RIGHT && event_is_down(event)) { X /* Process a RB click. */ X /* X * display popup menu of choices, but first disable X * certain entries if this is a readonly appointment X * or an empty slot. X */ X /* undelete - almost always inactive */ X an_item = menu_get(day_sel_menu, MENU_NTH_ITEM, MUNDELETE); X menu_set(an_item, MENU_INACTIVE, TRUE, 0); X if (!slots[box_index].first) { X /* empty slot. only paste active */ X paste_only(); X } else if (slots[box_index].cur_appt->flags & READONLY) { X /* readonly => paste and copy only */ X paste_only(); X /* copy */ X an_item = menu_get(day_sel_menu, MENU_NTH_ITEM, MCOPY); X menu_set(an_item, MENU_INACTIVE, FALSE, 0); X } else { X /* delete */ X an_item = menu_get(day_sel_menu, MENU_NTH_ITEM, MDELETE); X menu_set(an_item, MENU_INACTIVE, FALSE, 0); X /* cut */ X an_item = menu_get(day_sel_menu, MENU_NTH_ITEM, MCUT); X menu_set(an_item, MENU_INACTIVE, FALSE, 0); X /* copy */ X an_item = menu_get(day_sel_menu, MENU_NTH_ITEM, MCOPY); X menu_set(an_item, MENU_INACTIVE, FALSE, 0); X /* modify */ X an_item = menu_get(day_sel_menu, MENU_NTH_ITEM, MMODIFY); X menu_set(an_item, MENU_INACTIVE, FALSE, 0); X for (aptr=slots[box_index].first; aptr; aptr=aptr->next) X if (aptr->flags & DELETED) { X if (!slots[box_index].active) X /* only paste and undelete */ X paste_only(); X /* undelete */ X an_item = menu_get(day_sel_menu, MENU_NTH_ITEM, MUNDELETE); X menu_set(an_item, MENU_INACTIVE, FALSE, 0); X break; X } X } X i = (int) menu_show(day_sel_menu, canvas, event, 0); X if (i > 0) { X switch (i) { X case MDELETE: X delete_appt(box_index, canvas); X break; X case MCUT: X cut_appt(box_index, canvas); X break; X case MCOPY: X copy_appt(box_index); X break; X case MPASTE: X paste_appt(box_index); X break; X case MMODIFY: X modify_appt(box_index, canvas); X break; X case MUNDELETE: X undelete_appt(box_index); X break; X } X if (new_entry) { X close_day(); X draw_day(); /* redraw display */ X } X } X } else X window_default_event_proc(canvas, event, 0); X return(1); X} X X X/* make "paste" the only active menu entry */ Xpaste_only() X{ X Menu_item an_item; X X /* delete */ X an_item = menu_get(day_sel_menu, MENU_NTH_ITEM, MDELETE); X menu_set(an_item, MENU_INACTIVE, TRUE, 0); X /* cut */ X an_item = menu_get(day_sel_menu, MENU_NTH_ITEM, MCUT); X menu_set(an_item, MENU_INACTIVE, TRUE, 0); X /* copy */ X an_item = menu_get(day_sel_menu, MENU_NTH_ITEM, MCOPY); X menu_set(an_item, MENU_INACTIVE, TRUE, 0); X /* modify */ X an_item = menu_get(day_sel_menu, MENU_NTH_ITEM, MMODIFY); X menu_set(an_item, MENU_INACTIVE, TRUE, 0); X} X X/* draw (or erase) text cursor in a day slot */ Xtext_cursor(slotno) Xint slotno; X{ X int strl, x; X X strl = strlen(&slots[slotno].cur_appt->str[slots[slotno].cur_appt->sindex]); X if (strl <= (day_message_size-1)) { X x = slots[slotno].slot_pos.left + strl * font->pf_defaultsize.x; X pw_write(main_pixwin, x, slots[slotno].slot_pos.bottom-4, X 16, 16, PIX_SRC^PIX_DST, &tri_up_pr, 0, 0); X } X old_slot = slotno; X} X X/* make slot active */ Xmake_box_active(bi) Xint bi; X{ X add_to_slot(bi, NULL, TRUE); X fill_appt(bi); X rewrite_string(bi, JUSTIFY_LEFT); X text_cursor(bi); X} X X/* activate a hidden appt and make it visible */ Xint Xactivate_slot(bi, dpyflag) Xint bi; Xint dpyflag; X{ X if (slots[bi].active <= 0) X /* nothing to activate */ X return(0); X X if (dpyflag) X draw_day_appts(); /* redraw display */ X X return(1); X} X X/* clears a day slot */ Xdeactivate_slot(bi, dpyflag) Xint bi, dpyflag; X{ X if (!dpyflag) X return; X /* erase text cursor at old location */ X if (old_slot >= 0) { X text_cursor(old_slot); X old_slot = -1; X } X /* erase displayed slot */ X if (!ymd_compare(current, today)) X pw_write(main_pixwin, slots[bi].slot_pos.left, slots[bi].slot_pos.top, X dayslot_width, dayslot_height, PIX_SRC, timeslot_td_pr, 0, 0); X else X pw_write(main_pixwin, slots[bi].slot_pos.left+1, slots[bi].slot_pos.top+1, X dayslot_width-2, dayslot_height-2, PIX_CLR, NULL, 0, 0); X if (slots[bi].cur_appt->arrows > 0) X deactivate_lower_arrows(bi, dpyflag); X} X X/* clear any displayed arrowshafts and arrowheads */ Xdeactivate_lower_arrows(bi, dpyflag) Xint bi, dpyflag; X{ X int narrows, offset; X X if (!dpyflag) X return; X narrows = slots[bi].cur_appt->arrows; X offset = (slots[bi].count - slots[bi].active + 1) * 40; X while (narrows-- > 0) { X bi++; X if (slots[bi].active) X continue; X /* erase displayed arrowshaft or arrowhead */ X if (!ymd_compare(current, today)) X pw_write(main_pixwin, slots[bi].slot_pos.left+1+offset, X slots[bi].slot_pos.top+1, 16, X dayslot_height-2, PIX_SRC, timeslot_td_pr, 0, 0); X else X pw_write(main_pixwin, slots[bi].slot_pos.left+1+offset, X slots[bi].slot_pos.top+1, 16, X dayslot_height-2, PIX_CLR, NULL, 0, 0); X } X} X X/* fill in appt struct with current info */ Xfill_appt(bi) Xint bi; X{ X int s_hour, s_minute, n_arrows; X X slots[bi].cur_appt->year = current.tm_year; X slots[bi].cur_appt->month = current.tm_mon; X slots[bi].cur_appt->day = current.tm_mday; X slots[bi].cur_appt->arrows = 0; X slots[bi].cur_appt->flags = slots[bi].cur_appt->repeat = 0; X slots[bi].cur_appt->lookahead = slots[bi].cur_appt->sindex = 0; X slots[bi].cur_appt->runlength = 0; X slots[bi].cur_appt->warn = 10; X if (bi >= n_tslots) { X /* notes section */ X slots[bi].cur_appt->hour = 99; X slots[bi].cur_appt->minute = 0; X slots[bi].cur_appt->flags = A_NOTE; X } else { X /* regular appt */ X slots[bi].cur_appt->hour = bi/2 + start_hour; X slots[bi].cur_appt->minute = (bi % 2) * 30; X } X slots[bi].cur_appt->str[0] = '\0'; X} X X/* X * Display delete popup window to let user choose delete mode for X * recurring appts (delete this one only or delete all), otherwise, X * just wipe it out with no options. X */ Xdelete_appt(bi, canvas) Xint bi; XCanvas canvas; X{ X Rect *canvas_r; X int top, left, width, height; X X if (slots[bi].cur_appt->flags & READONLY) { X err_rpt("Can't delete a read-only appt", NON_FATAL); X return; X } X if (Repeating(slots[bi].cur_appt->flags)) { X attr_bi = bi; /* set global index for notify func */ X X /* get x,y position of canvas window on the screen so we X * can center popup window in it. X */ X canvas_r = (Rect *) window_get(canvas, WIN_RECT); X panel_set(del_choice_pi, PANEL_CHOICE_STRINGS, X "Delete this occurrance only", X "Delete all occurrances", 0, X PANEL_CLIENT_DATA, 0, X 0); X window_fit(del_panel); X window_fit(del_frame); X width = (int) window_get(del_frame, WIN_WIDTH); X height = (int) window_get(del_frame, WIN_HEIGHT); X left = canvas_r->r_left + (canvas_r->r_width - width) / 2; X top = canvas_r->r_top + (canvas_r->r_height - height) / 2; X window_set(del_frame, WIN_X, left, WIN_Y, top, 0); X panel_set_value(del_choice_pi, 0); X X window_loop(del_frame); /* let user select things */ X } else { X cut_delete(bi); X new_entry = 1; X } X} X Xcut_appt(bi, canvas) Xint bi; XCanvas canvas; X{ X Rect *canvas_r; X int top, left, width, height; X int i; X X /* cut (delete) current entry, saving the info on the "shelf" */ X if (slots[bi].cur_appt->flags & READONLY) { X err_rpt("Can't cut a read-only appt", NON_FATAL); X return; X } X shelf_appt = *slots[bi].cur_appt; X if (Repeating(slots[bi].cur_appt->flags)) { X attr_bi = bi; /* set global index for notify func */ X X /* get x,y position of canvas window on the screen so we X * can center popup window in it. X */ X canvas_r = (Rect *) window_get(canvas, WIN_RECT); X panel_set(del_choice_pi, PANEL_CHOICE_STRINGS, X "Move this occurrance only", X "Move all occurrances", 0, X PANEL_CLIENT_DATA, 1, X 0); X window_fit(del_panel); X window_fit(del_frame); X width = (int) window_get(del_frame, WIN_WIDTH); X height = (int) window_get(del_frame, WIN_HEIGHT); X left = canvas_r->r_left + (canvas_r->r_width - width) / 2; X top = canvas_r->r_top + (canvas_r->r_height - height) / 2; X window_set(del_frame, WIN_X, left, WIN_Y, top, 0); X panel_set_value(del_choice_pi, 0); X X window_loop(del_frame); /* let user select things */ X } else { X cut_delete(bi); X new_entry = 1; X } X} X Xcut_delete(bi) Xint bi; X{ X int j; X struct appt_entry *aptr, *cptr, *optr; X X cptr = slots[bi].cur_appt; X slots[bi].count--; X slots[bi].active--; X deactivate_slot(bi, TRUE); X if ( (j = cptr->arrows) > 0) { X /* adjust counts */ X while (j > 0) X slots[bi+(j--)].count--; X } X if (slots[bi].cur_appt == slots[bi].first) { X /* displaying first entry in list */ X /* see if there's any more */ X if (slots[bi].first->next) X slots[bi].first = slots[bi].first->next; X else { X /* last one */ X slots[bi].first = NULL; X slots[bi].active = 0; X } X slots[bi].cur_appt = slots[bi].first; X } else { X /* not first, so find previous one to this */ X for (aptr=slots[bi].first; slots[bi].cur_appt!=aptr; optr=aptr,aptr=aptr->next) X ; X slots[bi].cur_appt = optr->next = aptr->next; X if (!optr->next) X slots[bi].cur_appt = slots[bi].first; X } X free(cptr); X (void)activate_slot(bi, TRUE); /* show any hidden appts */ X} X Xcopy_appt(bi) Xint bi; X{ X /* copy current entry, saving the info on the "shelf" */ X shelf_appt = *slots[bi].cur_appt; X} X Xpaste_appt(bi) Xint bi; X{ X int j; X X /* insert the saved entry (if any) */ X if (shelf_appt.str[0] == '\0') { X err_rpt("nothing to paste", NON_FATAL); X return; X } X shelf_appt.year = current.tm_year; X shelf_appt.month = current.tm_mon; X shelf_appt.day = current.tm_mday; X if (shelf_appt.flags & EVERY_SOMEDAY) { X /* change repeating appt to this day */ X shelf_appt.flags &= ~EVERY_SOMEDAY; X shelf_appt.flags |= Setday(current.tm_wday); X } X if (bi >= n_tslots) { X /* notes section */ X shelf_appt.hour = 99; X shelf_appt.minute = 0; X /* just in case converting from time to note */ X shelf_appt.flags |= A_NOTE; X } else { X /* regular appt */ X shelf_appt.hour = bi/2 + start_hour; X shelf_appt.minute = (bi % 2) * 30; X /* just in case converting from note to time */ X shelf_appt.flags &= ~MARKED_NOTE; X } X add_to_slot(bi, &shelf_appt, TRUE); X new_entry = 1; X} X X/* X * Display attributes popup window to let user modify X * various appointment options (such as repeat interval, X * etc.) X */ Xmodify_appt(bi, canvas) Xint bi; XCanvas canvas; X{ X Rect *canvas_r; X int top, left, width, height; X X if (slots[bi].cur_appt->flags & READONLY) { X err_rpt("Can't modify a read-only appt", NON_FATAL); X return; X } X attr_bi = bi; /* set global index for notify func */ X set_attr(); /* set panel item current values */ X X /* get x,y position of canvas window on the screen so we X * can center this one in it. X */ X canvas_r = (Rect *) window_get(canvas, WIN_RECT); X width = (int) window_get(attr_frame, WIN_WIDTH); X height = (int) window_get(attr_frame, WIN_HEIGHT); X left = canvas_r->r_left + (canvas_r->r_width - width) / 2; X top = canvas_r->r_top + (canvas_r->r_height - height) / 2; X window_set(attr_frame, WIN_X, left, WIN_Y, top, 0); X X window_loop(attr_frame); /* let user select things */ X window_set(attr_frame, WIN_SHOW, FALSE, 0); X} X X/* undelete a recurring appointment for this day */ X/* we only get here if a deleted appt exists */ Xundelete_appt(bi) Xint bi; X{ X struct appt_entry *aptr, *optr; X X /* search list to find deleted entry */ X for (optr=aptr=slots[bi].first; aptr; optr=aptr,aptr=aptr->next) X if (aptr->flags & DELETED) X break; X if (aptr == slots[bi].first) X slots[bi].first = aptr->next; X else X optr->next = aptr->next; X slots[bi].count++; X slots[bi].active++; X if (slots[bi].active == 1) { X slots[bi].cur_appt = slots[bi].first; X (void)activate_slot(bi, TRUE); X } X free(aptr); X new_entry = 1; X} X Xset_attr() X{ X int everyx_val = 0, whichwk_val = 0; X char str[5]; X struct appt_entry *apt = slots[attr_bi].cur_appt; X X panel_set_value(repeat_pi, ""); /* set default */ X panel_set_value(remind_pi, ""); /* set default */ X panel_set_value(runl_pi, ""); /* set default */ X if (apt->flags & EVERY_MON_FRI) X everyx_val |= 0x1; X else if (apt->flags & ALL_DAYS) X everyx_val |= 0x2; X if (apt->flags & ALL_MONTHS) X everyx_val |= 0x8; X if (apt->flags & ALL_YEARS) X everyx_val |= 0x10; X if (apt->flags & EVERY_SOMEDAY) { X everyx_val |= 0x4; X if (apt->repeat == ALL_WEEKS) X whichwk_val = 0x40; X else X whichwk_val = apt->repeat; X panel_set(repeat_pi, PANEL_SHOW_ITEM, FALSE, 0); X panel_set(whichwk_pi, PANEL_SHOW_ITEM, TRUE, 0); X } else { X if (apt->repeat) { X sprintf(str, "%d", apt->repeat); X panel_set_value(repeat_pi, str); X } X panel_set(whichwk_pi, PANEL_SHOW_ITEM, FALSE, 0); X panel_set(repeat_pi, PANEL_SHOW_ITEM, TRUE, 0); X } X panel_set_value(everyx_pi, everyx_val); X panel_set_value(whichwk_pi, whichwk_val); X if (apt->flags & LOOKAHEAD) { X sprintf(str, "%d", apt->lookahead); X panel_set_value(remind_pi, str); X } X if (apt->flags & RUN) { X sprintf(str, "%d", apt->runlength); X panel_set_value(runl_pi, str); X } X panel_set_value(marked_pi, (apt->flags & MARKED ? 1 : 0)); X sprintf(str, "%d", apt->warn); X panel_set_value(advw_pi, str); X if (apt->flags & A_NOTE) X panel_set(marked_pi, PANEL_SHOW_ITEM, TRUE, 0); X else X panel_set(marked_pi, PANEL_SHOW_ITEM, FALSE, 0); X} X X/* "more" button selected. Display next appt in rotation. */ Xnext_appt(bi, dpyflag) Xint bi; Xint dpyflag; X{ X static int loopcnt = 0; X X if (slots[bi].active) X deactivate_slot(bi, dpyflag); X X if (slots[bi].cur_appt->next == NULL) { X /* end of the chain */ X slots[bi].cur_appt = slots[bi].first; X if (loopcnt) { X /* infinite loop detected */ X loopcnt = 0; X return; X } else X ++loopcnt; X } else X /* activate next in chain */ X slots[bi].cur_appt = slots[bi].cur_appt->next; X /* make sure it is not a deleted one */ X if (chk_deleted(&slots[bi], slots[bi].cur_appt)) X next_appt(bi, dpyflag); /* try next in chain */ X else if (!activate_slot(bi, dpyflag)) X next_appt(bi, dpyflag); /* try next in chain */ X loopcnt = 0; X} X X/* left scroll arrow selected */ Xdo_left_arrow(canvas, bi) XCanvas canvas; Xint bi; X{ X struct timeval timeout; X Event event; X int fd, ertn, flags; X X if (!slots[bi].active || strlen(slots[bi].cur_appt->str) < day_message_size) X return; X timeout.tv_sec = 0L; X timeout.tv_usec = 100000L; /* 1/10 sec */ X fd = (int)window_get(canvas, WIN_FD); X flags = fcntl(fd, F_GETFL, 0); X (void)fcntl(fd, F_SETFL, flags|FNDELAY); X /* reverse video the arrow */ X pw_rop(main_pixwin, slots[bi].larrow_pos.left, slots[bi].larrow_pos.top, X 19, 14, PIX_NOT(PIX_DST), leftarrow, 0, 0); X while (TRUE) { X if (slots[bi].cur_appt->sindex < strlen(slots[bi].cur_appt->str)) { X ++slots[bi].cur_appt->sindex; X rewrite_string(bi, JUSTIFY_INDEX); X /* reverse video the arrow (rewrite changed it) */ X pw_rop(main_pixwin, slots[bi].larrow_pos.left, slots[bi].larrow_pos.top, X 19, 14, PIX_NOT(PIX_DST), leftarrow, 0, 0); X } X /* do this garbage to handle a repeat function */ X (void)select(0, NULL, NULL, NULL, &timeout); X ertn = window_read_event(canvas, &event); X if (ertn != -1 && event_is_up(&event)) X break; X } X /* put arrow back to normal */ X pw_rop(main_pixwin, slots[bi].larrow_pos.left, slots[bi].larrow_pos.top, X 19, 14, PIX_SRC, leftarrow, 0, 0); X (void)fcntl(fd, F_SETFL, flags & ~FNDELAY); X} X X/* right scroll arrow selected */ Xdo_right_arrow(canvas, bi) XCanvas canvas; Xint bi; X{ X struct timeval timeout; X Event event; X int fd, ertn, flags; X X if (!slots[bi].active || strlen(slots[bi].cur_appt->str) < day_message_size) X return; X timeout.tv_sec = 0L; X timeout.tv_usec = 100000L; /* 1/10 sec */ X fd = (int)window_get(canvas, WIN_FD); X flags = fcntl(fd, F_GETFL, 0); X (void)fcntl(fd, F_SETFL, flags|FNDELAY); X /* reverse video the arrow */ X pw_rop(main_pixwin, slots[bi].rarrow_pos.left, slots[bi].rarrow_pos.top, X 19, 14, PIX_NOT(PIX_DST), rightarrow, 0, 0); X while (TRUE) { X if (slots[bi].cur_appt->sindex > 0) { X --slots[bi].cur_appt->sindex; X rewrite_string(bi, JUSTIFY_INDEX); X /* reverse video the arrow (rewrite changed it) */ X pw_rop(main_pixwin, slots[bi].rarrow_pos.left, slots[bi].rarrow_pos.top, X 19, 14, PIX_NOT(PIX_DST), rightarrow, 0, 0); X } X /* do this garbage to handle a repeat function */ X (void)select(0, NULL, NULL, NULL, &timeout); X ertn = window_read_event(canvas, &event); X if (ertn != -1 && event_is_up(&event)) X break; X } X pw_rop(main_pixwin, slots[bi].rarrow_pos.left, slots[bi].rarrow_pos.top, X 19, 14, PIX_SRC, rightarrow, 0, 0); X (void)fcntl(fd, F_SETFL, flags & ~FNDELAY); X} X X/* X * get_shelf - get text from selection service shelf for copy X * operation. From Mark Feblowitz <mdf0%shemesh@gte.COM>. X */ Xstatic Xchar * Xget_shelf() X{ X Seln_holder holder; X Seln_request *buffer; X X holder = seln_inquire(SELN_SHELF); X /* do we have the shelf? */ X if (!seln_holder_same_process(&holder)) { X buffer = seln_ask(&holder, SELN_REQ_CONTENTS_ASCII, 0, 0); X (void) strncpy(sel_text, buffer->data + sizeof(Seln_attribute), X MAX_STRLEN-1); X sel_text[MAX_STRLEN-1] = '\0'; X if (strlen(sel_text) == 0) X /* empty string is no sel. */ X return(NULL); X sel_text[MAX_STRLEN-1] = '\0'; X } X return(sel_text); X} X X/* X * respond to function keys the selection service thinks X * are important X */ Xvoid Xsel_func_key_proc(client_data, args) Xchar *client_data; XSeln_function_buffer *args; X{ X Seln_holder *holder; X Seln_response resp; X X if ((resp = seln_figure_response(args, &holder)) == SELN_SHELVE) { X /* put string for current appt on the shelf */ X if (found_flag == FOUND_SLOT && slots[box_index].active) X /* we're in an active slot */ X strcpy(sel_text, slots[box_index].cur_appt->str); X else X sel_text[0] = '\0'; X } X} X X/* X * called by selection svc library when someone requests our shelf X * text. Abridged from the seln_demo() in the SunView manual. X */ XSeln_result Xsel_reply_proc(item, context, length) XSeln_attribute item; XSeln_replier_data *context; Xint length; X{ X char *destp, *seln = NULL; X int size; X X if (context->rank == SELN_SHELF) X seln = sel_text; X X switch (item) { X case SELN_REQ_CONTENTS_ASCII: X /* send the contents of the selection buffer */ X if (seln == NULL) X return(SELN_DIDNT_HAVE); X context->context = seln; X size = strlen(seln); X destp = (char *)context->response_pointer; X /* allow for padding */ X (void) strncpy(destp, seln, length-8); X destp += size; X /* pad to long word */ X while ((int)destp % 4 != 0) X *destp++ = '\0'; X context->response_pointer = (char **)destp; X *context->response_pointer++ = 0; X break; X X case SELN_REQ_YIELD: X *context->response_pointer++ = (char *)SELN_SUCCESS; X break; X X case SELN_REQ_BYTESIZE: X if (seln == NULL) X return(SELN_DIDNT_HAVE); X *context->response_pointer++ = (char *)strlen(seln); X break; X X case SELN_REQ_END_REQUEST: X break; X X default: X return(SELN_UNRECOGNIZED); X } X X return(SELN_SUCCESS); X} END_OF_FILE if test 30220 -ne `wc -c <'devent.c'`; then echo shar: \"'devent.c'\" unpacked with wrong size! fi # end of 'devent.c' fi if test -f 'event.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'event.h'\" else echo shar: Extracting \"'event.h'\" $1467 characters$ sed "s/^X//" >'event.h' <<'END_OF_FILE' X/* X * $Header: event.h,v 2.2 91/02/01 12:19:43 billr Exp $ X */ X/* X * event.h X * X * Author: Philip Heller, Sun Microsystems. Inc. <terrapin!heller@sun.com> X * X * Original source Copyright (C) 1987, Sun Microsystems, Inc. X * All Rights Reserved X * Permission is hereby granted to use and modify this program in source X * or binary form as long as it is not sold for profit and this copyright X * notice remains intact. X * X * X * Changes/additions by: Bill Randle, Tektronix, Inc. <billr@saab.CNA.TEK.COM> X * X * Changes and additions Copyright (C) 1988, 1989, 1991 Tektronix, Inc. X * All Rights Reserved X * Permission is hereby granted to use and modify the modifications in source X * or binary form as long as they are not sold for profit and this copyright X * notice remains intact. X */ X Xextern struct dayslot *slots; Xextern int mainsw_state, day_is_open; Xextern struct rect_limits boxlims[]; Xextern struct rect_limits mboxlims[]; Xextern int selected_type, read_only, new_entry; Xextern int dayslot_width, nr_weekdays, day_message_size; Xextern int dayslot_height, weekslot_height, weekslot_width; Xextern int ybox_height, ybox_width; Xextern struct weekrect week_boxes[]; Xextern Pixwin *main_pixwin; Xextern Pixfont *font; Xextern Cursor month_cursor, week_cursor, day_cursor; Xextern Pixrect *smallarrow_pr, *arrowhead_pr, *arrowshaft_pr; Xextern struct week_arrow week_arrows[]; Xextern struct tm current; Xextern struct tm today; Xextern Pixrect *timeslot_td_pr, *morebutton; X END_OF_FILE if test 1467 -ne `wc -c <'event.h'`; then echo shar: \"'event.h'\" unpacked with wrong size! fi # end of 'event.h' fi if test -f 'mpaint.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'mpaint.c'\" else echo shar: Extracting \"'mpaint.c'\" $9590 characters$ sed "s/^X//" >'mpaint.c' <<'END_OF_FILE' X/* X * $Header: mpaint.c,v 2.5 91/03/27 16:45:56 billr Exp $ X */ X/* X * mpaint.c X * X * Author: Philip Heller, Sun Microsystems. Inc. <terrapin!heller@sun.com> X * X * Original source Copyright (C) 1987, Sun Microsystems, Inc. X * All Rights Reserved X * Permission is hereby granted to use and modify this program in source X * or binary form as long as it is not sold for profit and this copyright X * notice remains intact. X * X * X * Changes/additions by: Bill Randle, Tektronix, Inc. <billr@saab.CNA.TEK.COM> X * X * Changes and additions Copyright (C) 1988, 1989, 1991 Tektronix, Inc. X * All Rights Reserved X * Permission is hereby granted to use and modify the modifications in source X * or binary form as long as they are not sold for profit and this copyright X * notice remains intact. X */ X/*************************************************** X * * X * Artistic routines that draw in the main * X * subwindow for the month display. * X * * X ***************************************************/ X X#include <suntool/sunview.h> X#include <suntool/canvas.h> X#include <ctype.h> X#include <stdio.h> X#include "ct.h" X#include "paint.h" X#ifndef NO_HOLIDAYS Xextern struct appt_entry a_appts[], c_appts[]; Xextern struct appt_entry i_appts[], j_appts[]; Xextern struct appt_entry s_appts[]; X#endif X X/* X * Routine to draw month calendar. X */ X Xdraw_month() X{ X int start_dow, i, j, k, x, y, n_days; X int days_in_week; X int arrow_index, last_top, index; X char c[4], title[20], *cp; X int left_border, right_border, top_border, bottom_border; X Rect *rect; X int busy_today[31]; X FILE *apts; X int read_stat; X struct tm Save; X struct appt_entry appt; X int runl; X X lock_cursors(); X /* destory future appts popup, if it exists */ X if (fframe) { X window_destroy(fframe); X fframe = 0; X } X fix_current_day(); X Save = current; X current.tm_mday = 1; X fix_current_day(); X working(TRUE); X start_dow = current.tm_wday; X n_days = monthlength(current.tm_mon); X X pw_batch_on(main_pixwin); X rect = (Rect *) window_get(canvas, WIN_RECT); X /* Erase the window */ X pw_writebackground(main_pixwin,0,0,rect->r_width,rect->r_height,PIX_CLR); X left_border = (rect->r_width - 7*64)/2 + 32; X top_border = (rect->r_height - 5*64) / 2; X right_border = left_border + 7*64; X X sprintf(title, "%s, %d", X monthnames[current.tm_mon], 1900 + current.tm_year); X pw_text(main_pixwin, (rect->r_width - bigfont->pf_defaultsize.x*strlen(title))/2 + 32, top_border/2 + 7, X PIX_SRC, bigfont, title); X sun_moon_buttons(FALSE); X print_button(TRUE); X X for (i=0; i<31; i++) /* Which days have appointments? */ X busy_today[i] = 0; X if ((apts = fopen(apts_pathname, "r")) == NULL) X err_rpt("can't open appointments file", FATAL); X First = current; X current.tm_mday = monthlength(current.tm_mon); X fix_current_day(); X Last = current; X working(FALSE); X while ((read_stat = get_aentry(apts, &appt, FALSE, 1, First.tm_mon+1)) != EOF) { X if (read_stat) X continue; /* read error (ignore) */ X if (appt.flags & A_COMMENT) X continue; X if ((appt.flags & MARKED_NOTE) == MARKED_NOTE) X continue; X current.tm_year = appt.year; X current.tm_mon = appt.month; X current.tm_mday = appt.day; X if (appt.flags & ALL_YEARS) X current.tm_year = First.tm_year; X if (appt.flags & ALL_MONTHS) X current.tm_mon = First.tm_mon; X if (appt.flags & EVERY_SOMEDAY) { X if ((current.tm_mon == First.tm_mon) && (current.tm_year == First.tm_year)) { X /* find first occurance of this day this month */ X current.tm_mday = First.tm_mday; X find_date(&appt); X if (appt.flags & RUN) X runl = appt.runlength; X else X runl = 1; X } else if (appt.flags & RUN) { X runl = appt.runlength; X find_date(&appt); X while (ymd_compare(current, First) < 0 && --runl) { X current.tm_mday += 7; X find_date(&appt); X } X if (ymd_compare(current, First) < 0) { X /* ran out of runlength */ X continue; X } X } else X continue; X while (ymd_compare(current, Last) <= 0 && runl) { X if (chk_week(appt.repeat, current.tm_mday)) { X if (runl) X busy_today[current.tm_mday-1]++; X if (appt.flags & RUN) X --runl; X } X current.tm_mday += 7; X fix_current_day(); X } X } else if ((appt.flags & REPEAT) && !(appt.flags & ALL_DAYS) X && !(appt.flags & EVERY_MON_FRI)) { X if (appt.flags & EVERY_SOMEDAY) X continue; X if (appt.flags & RUN) X runl = appt.runlength; X else X runl = 1; X while (ymd_compare(current, First) < 0 && runl) { X if (appt.flags & RUN) X --runl; X if (runl) { X current.tm_mday += appt.repeat; X fix_current_day(); X } X } X while (ymd_compare(current, Last) <= 0 && runl) { X if (runl) { X busy_today[current.tm_mday-1]++; X current.tm_mday += appt.repeat; X fix_current_day(); X if (appt.flags & RUN) X --runl; X } X } X } else if (current.tm_year == First.tm_year X && current.tm_mon == First.tm_mon) { X if (appt.flags & ALL_DAYS) X for (i=0; i<monthlength(First.tm_mon); i++) X busy_today[i]++; X else if (appt.flags & EVERY_MON_FRI) X for (i=0,j=First.tm_wday; i<monthlength(First.tm_mon); i++,j++) { X if (j > SAT) X j = SUN; X else if (j >= MON && j <= FRI) X busy_today[i]++; X } X else if (appt.flags & DELETED) X busy_today[appt.day-1]--; X else X busy_today[appt.day-1]++; X } X X } X fclose(apts); X current = First; X fix_current_day(); X#ifndef NO_HOLIDAYS X /* X * now that we've gone thru the appointments file, X * check to see if the user has selected any holiday X * options and add them in. X */ X for (i=0; i<monthlength(First.tm_mon); i++) { X working(TRUE); X if (holiday_a == 1) { X j = a_dates(holiday_a); X for (k=0; k<j; k++) X if (ymd2_compare(¤t, &a_appts[k]) == 0) X busy_today[i]++; X } X if (holiday_c == 1) { X j = c_dates(holiday_c); X for (k=0; k<j; k++) X if (ymd2_compare(¤t, &c_appts[k]) == 0) X busy_today[i]++; X } X working(FALSE); X if (holiday_i == 1) { X j = i_dates(holiday_i); X for (k=0; k<j; k++) X if (ymd2_compare(¤t, &i_appts[k]) == 0) X busy_today[i]++; X } X working(TRUE); X if (holiday_j == 1) { X j = j_dates(holiday_j); X for (k=0; k<j; k++) X if (ymd2_compare(¤t, &j_appts[k]) == 0) X busy_today[i]++; X } X if (holiday_s == 1) { X j = s_dates(holiday_s); X for (k=0; k<j; k++) X if (ymd2_compare(¤t, &s_appts[k]) == 0) X busy_today[i]++; X } X current.tm_mday++; X working(FALSE); X } X current = First; X fix_current_day(); X#endif X X y = top_border; /* Draw all day boxes. */ X if (monday_first) { X if (start_dow == SUN) { X x = 64*6 + left_border; X days_in_week = 6; X } else { X x = 64*(start_dow - 1) + left_border; X days_in_week = start_dow -1 ; X } X } else { X x = 64*start_dow + left_border; X days_in_week = start_dow; X } X c[0] = ' '; X c[1] = '1'; X c[2] = ' '; X c[3] = '\0'; X for (i=0; i<n_days; i++){ X if (ymd_compare(today, current) == 0) X /* gray box */ X pw_write(main_pixwin,x,y,64,64,PIX_SRC,daybox_td_pr,0,0); X else X pw_write(main_pixwin,x,y,64,64,PIX_SRC,daybox_pr,0,0); X if (busy_today[i] > 0) X pw_write(main_pixwin, x+46, y+2, 16, 16, X PIX_SRC|PIX_DST, triangle_pr, 0, 0); X boxlims[i].lowx = x; X boxlims[i].lowy = y; X boxlims[i].highx = x + 63; X boxlims[i].highy = y + 63; X pw_text(main_pixwin,x+6,y+21,PIX_SRC|PIX_DST,bigfont,c); X days_in_week++; X current.tm_mday++; X if (days_in_week == 7){ X days_in_week = 0; X x = left_border; X y += 64; X } X else X x += 64; X if (c[1] != '9') X c[1]++; X else { X c[1] = '0'; X if (c[0] == ' ') X c[0] = '1'; X else X c[0]++; X } X } X x = left_border + 27; X y = top_border - 16; X if (monday_first) { X for (i=1; i<7; i++) { /* Mon ... Sat Sun */ X pw_char(main_pixwin,x,y,PIX_SRC,bigfont,daynames[i][0]); X x += 64; X } X pw_char(main_pixwin,x,y,PIX_SRC,bigfont,daynames[0][0]); X } else { X for (i=0; i<7; i++) { /* Sun Mon ... Sat */ X pw_char(main_pixwin,x,y,PIX_SRC,bigfont,daynames[i][0]); X x += 64; X } X } X X bottom_border = boxlims[n_days-1].highy; X X /* Draw the "week arrows" */ X arrow_index = 0; X last_top = -1; X X current = First; X for (i=0; i<n_days; i++) X if (boxlims[i].lowy > last_top) { X last_top = boxlims[i].lowy; X week_arrows[arrow_index].active = 1; X week_arrows[arrow_index].left = left_border - 64; X week_arrows[arrow_index].top = last_top + 12; X week_arrows[arrow_index].right = X week_arrows[arrow_index].left + 43; X week_arrows[arrow_index].bottom = X week_arrows[arrow_index].top + 28; X pw_write(main_pixwin, left_border-64, last_top + 12, X 43, 29, PIX_SRC, weekarrow_pr, 0, 0); X X /* Week numbers */ X sprintf(c, "%2d", week_number()); X pw_text(main_pixwin, left_border-54, last_top+32, X PIX_SRC, font, c); X current.tm_mday += 7; X fix_current_day(); X X arrow_index++; X } X pw_batch_off(main_pixwin); X current = Save; X unlock_cursors(); X} END_OF_FILE if test 9590 -ne `wc -c <'mpaint.c'`; then echo shar: \"'mpaint.c'\" unpacked with wrong size! fi # end of 'mpaint.c' fi echo shar: End of archive 15 $of 23$. cp /dev/null ark15isdone MISSING="" for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 ; do if test ! -f ark${I}isdone ; then MISSING="${MISSING} ${I}" fi done if test "${MISSING}" = "" ; then echo You have unpacked all 23 archives. rm -f ark[1-9]isdone ark[1-9][0-9]isdone else echo You still need to unpack the following archives: echo " " ${MISSING} fi ## End of shell archive. exit 0 exit 0 # Just in case... -- Kent Landfield INTERNET: kent@sparky.IMD.Sterling.COM Sterling Software, IMD UUCP: uunet!sparky!kent Phone: (402) 291-8300 FAX: (402) 291-4362 Please send comp.sources.misc-related mail to kent@uunet.uu.net.